home *** CD-ROM | disk | FTP | other *** search
/ Family Forum 262 / SOMC Family Forum 262.iso / Xtras / Widget Wizard / Widget Wizard.dir / WidgtBehaviors_26_Intersect Me with Another.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  579 b   |  24 lines
  1. property IntersectSprite, DoWhat
  2.  
  3. on getPropertyDescriptionList
  4.   set D to [:]
  5.   addProp(D, #IntersectSprite, [#default: 1, #format: #integer, #comment: "Intersect With Sprite #:"])
  6.   addProp(D, #DoWhat, [#default: #intersect_event, #format: #symbol, #comment: "Event to Send:"])
  7.   return D
  8. end
  9.  
  10. on getAssocMembers
  11.   set myPropList to [IntersectSprite]
  12.   return myPropList
  13. end
  14.  
  15. on exitFrame me
  16.   if sprite the spriteNum of me intersects sprite(the IntersectSprite of me) then
  17.     doIntersection(me)
  18.   end if
  19. end
  20.  
  21. on doIntersection me
  22.   sendAllSprites(the handler_name of me)
  23. end
  24.